---
title: "festivals_meta_analysis"
author: "Jose S. Gomez"
date: "4/9/2019"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

#setup clean working environment, packages and data
```{r}
rm(list=ls())       # clear objects in memory
setwd("/Users/jge/Dropbox/GOTV IV (Andrew, Jose, Don)/Working Data/") # set working directory on Mac
#setwd("C:/Users/joses/Dropbox/GOTV IV (Andrew, Jose, Don)/Working Data/") # set working directory on Windows
library(foreign) 
library(metafor) # meta-analysis package
edayfestivals <- read.csv("GOTV IV Election Day Festivals.csv")
```

#Appendix C estimates in order of thier appearance within the book:
```{r}
#The estimates that are drawn for the studies included are derived from a model in which the raw turnout % is modeled (as opposed to the log-odds of turnout)

rma(yi = CACE, 
                     sei= SE, 
                     method = "DL", 
                     data = edayfestivals)
rma(yi = CACE, 
                     sei= SE, 
                     method = "FE", 
                     data = edayfestivals)
```